;Start of program
	XPROG
	4
		;BLOCK
	XMVAR
		;Scalars
	1
	1
		;Arrays
		;$B1.K
	1001
	1
	100003
	100002
		;$B1.J
	1001
	1
	100006
	100001
		;$B1.I
	1001
	1
	100003
	100002
	0
		;FOR LOOP
	XPUSH
	L1
	XPUSH
	L2
	XPUSH
	L1
L3:	XCOPY
	2
	XCHNGE
		;$B1.JJ
	400
	XFORCHK
	L4
		;Assignment
		;first argument
	XGTVAL
		;$B1.JJ
	400
		;second argument
	XGTVAL
		;$B1.JJ
	400
	XSMUL
		;Array reference
	XGTVAL
		;$B1.JJ
	400
	XCHNGE
		;$B1.J
	402
	XCOPY
	0
	XCOPY
	3
	XSADD
	XREPLACE
	3
	XJUMP
	L3
L4:	XPOP
	XPOP
	XPOP
		;END FOR
		;FOR LOOP
	XPUSH
	L1
	XPUSH
	L2
	XPUSH
	L1
L5:	XCOPY
	2
	XCHNGE
		;$B1.JJ
	400
	XFORCHK
	L6
		;Print
	XGTVAL
		;$B1.JJ
	400
	XVALPRN
	XCOPY
	0
	XCOPY
	3
	XSADD
	XREPLACE
	3
	XJUMP
	L5
L6:	XPOP
	XPOP
	XPOP
		;END FOR
		;Block end cleanup
	XKVAR
	4
		;End of BLOCK
	XENDP
		;End of program